اينم كد:

<!--Best Codes By WwW.Javacode.loxblog.com\Please Dont Delete this Line-->

<SCRIPT language=VBScript>

   <!--

   Dim Bar, Line, SP

   Bar = 0 

   Line = "|"

   sP = 200

 Function Window_onLoad()

     Bar = 95

     sP = 10

   END Function

   Function Count()

   If Bar < 100 Then

      Bar = Bar + 1

      Window.Status = "در حال بارگذاري صفحه ...." & Bar & "%" & " " & String(Bar, Line)

      setTimeout "Count()", SP

   Else

      Window.Status = ""

      Document.Body.Style.Display = "" 

   End If 

   End Function

      Call Count()

   -->

</SCRIPT>

<!--Best Codes By WwW.Javacode.loxblog.com\Please Dont Delete this Line-->

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: